home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / hello.uil < prev    next >
Encoding:
Text File  |  1995-06-29  |  708 b   |  41 lines
  1.  
  2.  
  3. module hello_uil
  4.  
  5. object hello_main : XmForm {
  6.   controls {
  7.     XmLabel    world;
  8.     XmPushButton    hello;
  9.   };
  10. };
  11.  
  12. procedure tcl(string);
  13.  
  14. object world : XmLabel {
  15.   arguments {
  16.     XmNlabelString = "hello";
  17.  
  18.     XmNleftAttachment = XmATTACH_FORM;
  19.     XmNtopAttachment =  XmATTACH_FORM;
  20.     XmNbottomAttachment = XmATTACH_FORM;
  21.   };
  22. };
  23.  
  24. object hello : XmPushButton {
  25.   arguments {
  26.     XmNlabelString = "world";
  27.  
  28.     XmNleftAttachment = XmATTACH_WIDGET;
  29.     XmNleftWidget =     world;
  30.     XmNtopAttachment =  XmATTACH_FORM;
  31.     XmNbottomAttachment = XmATTACH_FORM;
  32.     XmNrightAttachment =  XmATTACH_FORM;
  33.   };
  34.   callbacks{
  35.     XmNactivateCallback = procedure tcl("puts stdout goodbye");
  36.   };
  37. };
  38.  
  39. end module;
  40.  
  41.